function ret = g_tanh_prima(eta, h)
	ret = eta .* (1 - g_tanh(eta, h).^2);
endfunction